/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / ilisp / ilisp-cl.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 39 3a 30 37 3a 30 | 34 20 31 39 39 35 0a 3b | 19:07:0|4 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 69 6c |e/editor|/lisp/il|
|00000090| 69 73 70 2f 69 6c 69 73 | 70 2d 63 6c 2e 65 6c 0a |isp/ilis|p-cl.el.|
|000000a0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000b0| 6e 20 31 39 2e 31 33 20 | 58 45 6d 61 63 73 20 4c |n 19.13 |XEmacs L|
|000000c0| 75 63 69 64 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |ucid..;;|; byteco|
|000000d0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 32 2e 32 35 3b |mp versi|on 2.25;|
|000000e0| 20 31 2d 53 65 70 2d 39 | 34 2e 0a 3b 3b 3b 20 6f | 1-Sep-9|4..;;; o|
|000000f0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000100| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000110| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000120| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000130| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000140| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000150| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000160| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000170| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000180| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000190| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001a0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001b0| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|000001c0| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 |  (error| "This f|
|000001d0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001e0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 2e 22 29 | for Ema|cs 19.")|
|000001f0| 29 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)..(byte|-code ".|
|00000200| c1 21 ac 82 c2 11 c0 c3 | 21 ac 82 c4 13 c0 87 22 |.!......|!......"|
|00000210| 20 5b 62 6f 75 6e 64 70 | 20 69 6c 69 73 70 2d 63 | [boundp| ilisp-c|
|00000220| 6c 2d 69 6c 69 73 70 2d | 70 61 63 6b 61 67 65 2d |l-ilisp-|package-|
|00000230| 66 69 6c 65 20 22 69 6c | 69 73 70 2d 70 6b 67 2e |file "il|isp-pkg.|
|00000240| 6c 69 73 70 22 20 69 6c | 69 73 70 2d 63 6c 69 73 |lisp" il|isp-clis|
|00000250| 70 2d 69 6e 69 74 2d 66 | 69 6c 65 20 22 63 6c 69 |p-init-f|ile "cli|
|00000260| 73 70 2e 6c 69 73 70 22 | 5d 20 32 29 0a 28 64 65 |sp.lisp"|] 2).(de|
|00000270| 66 76 61 72 20 63 6c 69 | 73 70 2d 68 6f 6f 6b 20 |fvar cli|sp-hook |
|00000280| 6e 69 6c 20 22 5c 0a 2a | 49 6e 66 65 72 69 6f 72 |nil "\.*|Inferior|
|00000290| 20 43 6f 6d 6d 6f 6e 20 | 4c 49 53 50 20 68 6f 6f | Common |LISP hoo|
|000002a0| 6b 2e 22 29 0a 28 64 65 | 66 76 61 72 20 63 6c 69 |k.").(de|fvar cli|
|000002b0| 73 70 2d 70 72 6f 67 72 | 61 6d 20 6e 69 6c 20 22 |sp-progr|am nil "|
|000002c0| 5c 0a 2a 49 6e 66 65 72 | 69 6f 72 20 43 6f 6d 6d |\.*Infer|ior Comm|
|000002d0| 6f 6e 20 4c 49 53 50 20 | 64 65 66 61 75 6c 74 20 |on LISP |default |
|000002e0| 70 72 6f 67 72 61 6d 2e | 22 29 0a 28 66 73 65 74 |program.|").(fset|
|000002f0| 20 27 73 65 74 75 70 2d | 63 6c 69 73 70 20 23 5b | 'setup-|clisp #[|
|00000300| 28 62 75 66 66 65 72 29 | 20 22 c0 09 21 88 c2 13 |(buffer)| "..!...|
|00000310| c4 c5 0e 06 5c 22 88 c4 | c7 0e 08 5c 22 88 c9 16 |....\"..|...\"...|
|00000320| 5c 6e cb 16 0c cd 16 0e | cf 16 10 d1 16 12 d3 16 |\n......|........|
|00000330| 14 d5 16 16 d7 16 18 d9 | 16 1a db 16 1c dd 16 1e |........|........|
|00000340| df 16 20 e1 16 5c 22 e3 | 16 24 e5 16 26 e7 16 28 |.. ..\".|.$..&..(|
|00000350| e9 16 2a eb 16 2c ed 16 | 2e ef 16 30 f1 16 32 f3 |..*..,..|...0..2.|
|00000360| 16 34 f5 16 36 f7 16 38 | f9 16 3a fb 16 3c fd 16 |.4..6..8|..:..<..|
|00000370| 3e ff 16 40 81 41 00 16 | 42 0e 43 ae 82 0e 44 16 |>..@.A..|B.C...D.|
|00000380| 44 c7 0e 45 42 16 45 81 | 46 00 81 47 00 21 87 22 |D..EB.E.|F..G.!."|
|00000390| 20 5b 73 65 74 75 70 2d | 69 6c 69 73 70 20 62 75 | [setup-|ilisp bu|
|000003a0| 66 66 65 72 20 22 28 6f | 72 20 28 61 6e 64 20 28 |ffer "(o|r (and (|
|000003b0| 6c 6f 61 64 20 5c 22 25 | 73 5c 22 20 3a 69 66 2d |load \"%|s\" :if-|
|000003c0| 64 6f 65 73 2d 6e 6f 74 | 2d 65 78 69 73 74 20 6e |does-not|-exist n|
|000003d0| 69 6c 29 20 74 29 5c 6e | 20 20 20 20 20 20 20 20 |il) t)\n|        |
|000003e0| 20 20 20 20 20 28 61 6e | 64 20 28 6c 6f 61 64 20 |     (an|d (load |
|000003f0| 5c 22 25 73 5c 22 20 3a | 69 66 2d 64 6f 65 73 2d |\"%s\" :|if-does-|
|00000400| 6e 6f 74 2d 65 78 69 73 | 74 20 6e 69 6c 29 20 74 |not-exis|t nil) t|
|00000410| 29 29 22 20 69 6c 69 73 | 70 2d 6c 6f 61 64 2d 6f |))" ilis|p-load-o|
|00000420| 72 2d 73 65 6e 64 2d 63 | 6f 6d 6d 61 6e 64 20 69 |r-send-c|ommand i|
|00000430| 6c 69 73 70 2d 6c 6f 61 | 64 2d 69 6e 69 74 20 69 |lisp-loa|d-init i|
|00000440| 6c 69 73 70 2d 70 61 63 | 6b 61 67 65 2d 6b 6c 75 |lisp-pac|kage-klu|
|00000450| 64 67 65 20 69 6c 69 73 | 70 2d 63 6c 2d 69 6c 69 |dge ilis|p-cl-ili|
|00000460| 73 70 2d 70 61 63 6b 61 | 67 65 2d 66 69 6c 65 20 |sp-packa|ge-file |
|00000470| 63 6c 69 73 70 20 69 6c | 69 73 70 2d 63 6c 69 73 |clisp il|isp-clis|
|00000480| 70 2d 69 6e 69 74 2d 66 | 69 6c 65 20 22 5e 5b 20 |p-init-f|ile "^[ |
|00000490| 09 5d 2a 28 69 6e 2d 70 | 61 63 6b 61 67 65 5b 20 |.]*(in-p|ackage[ |
|000004a0| 09 5c 6e 5d 2a 22 20 69 | 6c 69 73 70 2d 70 61 63 |.\n]*" i|lisp-pac|
|000004b0| 6b 61 67 65 2d 72 65 67 | 65 78 70 20 22 28 6c 65 |kage-reg|exp "(le|
|000004c0| 74 20 28 28 2a 70 61 63 | 6b 61 67 65 2a 20 2a 70 |t ((*pac|kage* *p|
|000004d0| 61 63 6b 61 67 65 2a 29 | 29 20 25 73 20 28 70 61 |ackage*)|) %s (pa|
|000004e0| 63 6b 61 67 65 2d 6e 61 | 6d 65 20 2a 70 61 63 6b |ckage-na|me *pack|
|000004f0| 61 67 65 2a 29 29 22 20 | 69 6c 69 73 70 2d 70 61 |age*))" |ilisp-pa|
|00000500| 63 6b 61 67 65 2d 63 6f | 6d 6d 61 6e 64 20 22 28 |ckage-co|mmand "(|
|00000510| 70 61 63 6b 61 67 65 2d | 6e 61 6d 65 20 2a 70 61 |package-|name *pa|
|00000520| 63 6b 61 67 65 2a 29 22 | 20 69 6c 69 73 70 2d 70 |ckage*)"| ilisp-p|
|00000530| 61 63 6b 61 67 65 2d 6e | 61 6d 65 2d 63 6f 6d 6d |ackage-n|ame-comm|
|00000540| 61 6e 64 20 22 28 69 6e | 2d 70 61 63 6b 61 67 65 |and "(in|-package|
|00000550| 20 5c 22 25 73 5c 22 29 | 22 20 69 6c 69 73 70 2d | \"%s\")|" ilisp-|
|00000560| 69 6e 2d 70 61 63 6b 61 | 67 65 2d 63 6f 6d 6d 61 |in-packa|ge-comma|
|00000570| 6e 64 20 22 2a 22 20 69 | 6c 69 73 70 2d 6c 61 73 |nd "*" i|lisp-las|
|00000580| 74 2d 63 6f 6d 6d 61 6e | 64 20 22 28 70 72 6f 67 |t-comman|d "(prog|
|00000590| 6e 20 28 49 4c 49 53 50 | 3a 69 6c 69 73 70 2d 73 |n (ILISP|:ilisp-s|
|000005a0| 61 76 65 29 20 25 73 5c | 6e 29 22 20 69 6c 69 73 |ave) %s\|n)" ilis|
|000005b0| 70 2d 73 61 76 65 2d 63 | 6f 6d 6d 61 6e 64 20 22 |p-save-c|ommand "|
|000005c0| 28 49 4c 49 53 50 3a 69 | 6c 69 73 70 2d 72 65 73 |(ILISP:i|lisp-res|
|000005d0| 74 6f 72 65 29 22 20 69 | 6c 69 73 70 2d 72 65 73 |tore)" i|lisp-res|
|000005e0| 74 6f 72 65 2d 63 6f 6d | 6d 61 6e 64 20 22 28 70 |tore-com|mand "(p|
|000005f0| 72 6f 67 6e 20 25 73 5c | 6e 29 22 20 69 6c 69 73 |rogn %s\|n)" ilis|
|00000600| 70 2d 62 6c 6f 63 6b 2d | 63 6f 6d 6d 61 6e 64 20 |p-block-|command |
|00000610| 22 28 49 4c 49 53 50 3a | 69 6c 69 73 70 2d 65 76 |"(ILISP:|ilisp-ev|
|00000620| 61 6c 20 5c 22 25 73 5c | 22 20 5c 22 25 73 5c 22 |al \"%s\|" \"%s\"|
|00000630| 20 5c 22 25 73 5c 22 29 | 22 20 69 6c 69 73 70 2d | \"%s\")|" ilisp-|
|00000640| 65 76 61 6c 2d 63 6f 6d | 6d 61 6e 64 20 22 28 64 |eval-com|mand "(d|
|00000650| 65 66 76 61 72 5b 20 09 | 5c 6e 5d 22 20 69 6c 69 |efvar[ .|\n]" ili|
|00000660| 73 70 2d 64 65 66 76 61 | 72 2d 72 65 67 65 78 70 |sp-defva|r-regexp|
|00000670| 20 22 28 49 4c 49 53 50 | 3a 69 6c 69 73 70 2d 65 | "(ILISP|:ilisp-e|
|00000680| 76 61 6c 20 5c 22 28 6c | 65 74 20 28 28 66 6f 72 |val \"(l|et ((for|
|00000690| 6d 20 27 25 73 29 29 20 | 28 70 72 6f 67 6e 20 28 |m '%s)) |(progn (|
|000006a0| 6d 61 6b 75 6e 62 6f 75 | 6e 64 20 28 73 65 63 6f |makunbou|nd (seco|
|000006b0| 6e 64 20 66 6f 72 6d 29 | 29 20 28 65 76 61 6c 20 |nd form)|) (eval |
|000006c0| 66 6f 72 6d 29 29 29 5c | 22 20 5c 22 25 73 5c 22 |form)))\|" \"%s\"|
|000006d0| 20 5c 22 25 73 5c 22 29 | 22 20 69 6c 69 73 70 2d | \"%s\")|" ilisp-|
|000006e0| 64 65 66 76 61 72 2d 63 | 6f 6d 6d 61 6e 64 20 22 |defvar-c|ommand "|
|000006f0| 28 49 4c 49 53 50 3a 69 | 6c 69 73 70 2d 63 6f 6d |(ILISP:i|lisp-com|
|00000700| 70 69 6c 65 20 5c 22 25 | 73 5c 22 20 5c 22 25 73 |pile \"%|s\" \"%s|
|00000710| 5c 22 20 5c 22 25 73 5c | 22 29 22 20 69 6c 69 73 |\" \"%s\|")" ilis|
|00000720| 70 2d 63 6f 6d 70 69 6c | 65 2d 63 6f 6d 6d 61 6e |p-compil|e-comman|
|00000730| 64 20 22 28 49 4c 49 53 | 50 3a 69 6c 69 73 70 2d |d "(ILIS|P:ilisp-|
|00000740| 64 65 73 63 72 69 62 65 | 20 5c 22 25 73 5c 22 20 |describe| \"%s\" |
|00000750| 5c 22 25 73 5c 22 29 22 | 20 69 6c 69 73 70 2d 64 |\"%s\")"| ilisp-d|
|00000760| 65 73 63 72 69 62 65 2d | 63 6f 6d 6d 61 6e 64 20 |escribe-|command |
|00000770| 22 28 49 4c 49 53 50 3a | 69 6c 69 73 70 2d 69 6e |"(ILISP:|ilisp-in|
|00000780| 73 70 65 63 74 20 5c 22 | 25 73 5c 22 20 5c 22 25 |spect \"|%s\" \"%|
|00000790| 73 5c 22 29 22 20 69 6c | 69 73 70 2d 69 6e 73 70 |s\")" il|isp-insp|
|000007a0| 65 63 74 2d 63 6f 6d 6d | 61 6e 64 20 22 28 49 4c |ect-comm|and "(IL|
|000007b0| 49 53 50 3a 69 6c 69 73 | 70 2d 61 72 67 6c 69 73 |ISP:ilis|p-arglis|
|000007c0| 74 20 5c 22 25 73 5c 22 | 20 5c 22 25 73 5c 22 29 |t \"%s\"| \"%s\")|
|000007d0| 22 20 69 6c 69 73 70 2d | 61 72 67 6c 69 73 74 2d |" ilisp-|arglist-|
|000007e0| 63 6f 6d 6d 61 6e 64 20 | 28 28 22 66 75 6e 63 74 |command |(("funct|
|000007f0| 69 6f 6e 22 29 20 28 22 | 76 61 72 69 61 62 6c 65 |ion") ("|variable|
|00000800| 22 29 20 28 22 73 74 72 | 75 63 74 75 72 65 22 29 |") ("str|ucture")|
|00000810| 20 28 22 74 79 70 65 22 | 29 20 28 22 73 65 74 66 | ("type"|) ("setf|
|00000820| 22 29 20 28 22 63 6c 61 | 73 73 22 29 20 28 22 28 |") ("cla|ss") ("(|
|00000830| 71 75 61 6c 69 66 69 65 | 72 73 2a 20 28 63 6c 61 |qualifie|rs* (cla|
|00000840| 73 73 20 2e 2e 2e 29 29 | 22 29 29 20 69 6c 69 73 |ss ...))|")) ilis|
|00000850| 70 2d 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 2d |p-docume|ntation-|
|00000860| 74 79 70 65 73 20 22 28 | 49 4c 49 53 50 3a 69 6c |types "(|ILISP:il|
|00000870| 69 73 70 2d 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |isp-docu|mentatio|
|00000880| 6e 20 5c 22 25 73 5c 22 | 20 5c 22 25 73 5c 22 20 |n \"%s\"| \"%s\" |
|00000890| 5c 22 25 73 5c 22 29 22 | 20 69 6c 69 73 70 2d 64 |\"%s\")"| ilisp-d|
|000008a0| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 2d 63 6f 6d |ocumenta|tion-com|
|000008b0| 6d 61 6e 64 20 22 28 49 | 4c 49 53 50 3a 69 6c 69 |mand "(I|LISP:ili|
|000008c0| 73 70 2d 6d 61 63 72 6f | 65 78 70 61 6e 64 2d 31 |sp-macro|expand-1|
|000008d0| 20 5c 22 25 73 5c 22 20 | 5c 22 25 73 5c 22 29 22 | \"%s\" |\"%s\")"|
|000008e0| 20 69 6c 69 73 70 2d 6d | 61 63 72 6f 65 78 70 61 | ilisp-m|acroexpa|
|000008f0| 6e 64 2d 31 2d 63 6f 6d | 6d 61 6e 64 20 22 28 49 |nd-1-com|mand "(I|
|00000900| 4c 49 53 50 3a 69 6c 69 | 73 70 2d 6d 61 63 72 6f |LISP:ili|sp-macro|
|00000910| 65 78 70 61 6e 64 20 5c | 22 25 73 5c 22 20 5c 22 |expand \|"%s\" \"|
|00000920| 25 73 5c 22 29 22 20 69 | 6c 69 73 70 2d 6d 61 63 |%s\")" i|lisp-mac|
|00000930| 72 6f 65 78 70 61 6e 64 | 2d 63 6f 6d 6d 61 6e 64 |roexpand|-command|
|00000940| 20 22 28 49 4c 49 53 50 | 3a 69 6c 69 73 70 2d 6d | "(ILISP|:ilisp-m|
|00000950| 61 74 63 68 69 6e 67 2d | 73 79 6d 62 6f 6c 73 20 |atching-|symbols |
|00000960| 5c 22 25 73 5c 22 20 5c | 22 25 73 5c 22 20 25 73 |\"%s\" \|"%s\" %s|
|00000970| 20 25 73 20 25 73 29 22 | 20 69 6c 69 73 70 2d 63 | %s %s)"| ilisp-c|
|00000980| 6f 6d 70 6c 65 74 65 2d | 63 6f 6d 6d 61 6e 64 20 |omplete-|command |
|00000990| 6c 69 73 70 2d 6c 6f 63 | 61 74 65 2d 63 6c 69 73 |lisp-loc|ate-clis|
|000009a0| 70 20 69 6c 69 73 70 2d | 6c 6f 63 61 74 6f 72 20 |p ilisp-|locator |
|000009b0| 28 28 22 66 75 6e 63 74 | 69 6f 6e 22 29 20 28 22 |(("funct|ion") ("|
|000009c0| 6d 61 63 72 6f 22 29 20 | 28 22 76 61 72 69 61 62 |macro") |("variab|
|000009d0| 6c 65 22 29 20 28 22 73 | 74 72 75 63 74 75 72 65 |le") ("s|tructure|
|000009e0| 22 29 20 28 22 74 79 70 | 65 22 29 20 28 22 73 65 |") ("typ|e") ("se|
|000009f0| 74 66 22 29 20 28 22 63 | 6c 61 73 73 22 29 20 28 |tf") ("c|lass") (|
|00000a00| 22 28 71 75 61 6c 69 66 | 69 65 72 73 2a 20 28 63 |"(qualif|iers* (c|
|00000a10| 6c 61 73 73 20 2e 2e 2e | 29 29 22 29 29 20 69 6c |lass ...|))")) il|
|00000a20| 69 73 70 2d 73 6f 75 72 | 63 65 2d 74 79 70 65 73 |isp-sour|ce-types|
|00000a30| 20 22 28 49 4c 49 53 50 | 3a 69 6c 69 73 70 2d 63 | "(ILISP|:ilisp-c|
|00000a40| 61 6c 6c 65 72 73 20 5c | 22 25 73 5c 22 20 5c 22 |allers \|"%s\" \"|
|00000a50| 25 73 5c 22 29 22 20 69 | 6c 69 73 70 2d 63 61 6c |%s\")" i|lisp-cal|
|00000a60| 6c 65 72 73 2d 63 6f 6d | 6d 61 6e 64 20 22 28 49 |lers-com|mand "(I|
|00000a70| 4c 49 53 50 3a 69 6c 69 | 73 70 2d 74 72 61 63 65 |LISP:ili|sp-trace|
|00000a80| 20 5c 22 25 73 5c 22 20 | 5c 22 25 73 5c 22 20 5c | \"%s\" |\"%s\" \|
|00000a90| 22 25 73 5c 22 29 22 20 | 69 6c 69 73 70 2d 74 72 |"%s\")" |ilisp-tr|
|00000aa0| 61 63 65 2d 63 6f 6d 6d | 61 6e 64 20 22 28 49 4c |ace-comm|and "(IL|
|00000ab0| 49 53 50 3a 69 6c 69 73 | 70 2d 75 6e 74 72 61 63 |ISP:ilis|p-untrac|
|00000ac0| 65 20 5c 22 25 73 5c 22 | 20 5c 22 25 73 5c 22 29 |e \"%s\"| \"%s\")|
|00000ad0| 22 20 69 6c 69 73 70 2d | 75 6e 74 72 61 63 65 2d |" ilisp-|untrace-|
|00000ae0| 63 6f 6d 6d 61 6e 64 20 | 22 28 6e 61 6d 65 73 74 |command |"(namest|
|00000af0| 72 69 6e 67 20 2a 64 65 | 66 61 75 6c 74 2d 70 61 |ring *de|fault-pa|
|00000b00| 74 68 6e 61 6d 65 2d 64 | 65 66 61 75 6c 74 73 2a |thname-d|efaults*|
|00000b10| 29 22 20 69 6c 69 73 70 | 2d 64 69 72 65 63 74 6f |)" ilisp|-directo|
|00000b20| 72 79 2d 63 6f 6d 6d 61 | 6e 64 20 22 28 73 65 74 |ry-comma|nd "(set|
|00000b30| 71 20 2a 64 65 66 61 75 | 6c 74 2d 70 61 74 68 6e |q *defau|lt-pathn|
|00000b40| 61 6d 65 2d 64 65 66 61 | 75 6c 74 73 2a 20 28 70 |ame-defa|ults* (p|
|00000b50| 61 72 73 65 2d 6e 61 6d | 65 73 74 72 69 6e 67 20 |arse-nam|estring |
|00000b60| 5c 22 25 73 5c 22 29 29 | 22 20 69 6c 69 73 70 2d |\"%s\"))|" ilisp-|
|00000b70| 73 65 74 2d 64 69 72 65 | 63 74 6f 72 79 2d 63 6f |set-dire|ctory-co|
|00000b80| 6d 6d 61 6e 64 20 22 28 | 6c 6f 61 64 20 5c 22 25 |mmand "(|load \"%|
|00000b90| 73 5c 22 29 22 20 69 6c | 69 73 70 2d 6c 6f 61 64 |s\")" il|isp-load|
|00000ba0| 2d 63 6f 6d 6d 61 6e 64 | 20 22 28 49 4c 49 53 50 |-command| "(ILISP|
|00000bb0| 3a 69 6c 69 73 70 2d 63 | 6f 6d 70 69 6c 65 2d 66 |:ilisp-c|ompile-f|
|00000bc0| 69 6c 65 20 5c 22 25 73 | 5c 22 20 5c 22 25 73 5c |ile \"%s|\" \"%s\|
|00000bd0| 22 29 22 20 69 6c 69 73 | 70 2d 63 6f 6d 70 69 6c |")" ilis|p-compil|
|00000be0| 65 2d 66 69 6c 65 2d 63 | 6f 6d 6d 61 6e 64 20 63 |e-file-c|ommand c|
|00000bf0| 6c 69 73 70 2d 70 72 6f | 67 72 61 6d 20 69 6c 69 |lisp-pro|gram ili|
|00000c00| 73 70 2d 70 72 6f 67 72 | 61 6d 20 69 6c 69 73 70 |sp-progr|am ilisp|
|00000c10| 2d 64 69 61 6c 65 63 74 | 20 72 75 6e 2d 68 6f 6f |-dialect| run-hoo|
|00000c20| 6b 73 20 63 6c 69 73 70 | 2d 68 6f 6f 6b 5d 20 33 |ks clisp|-hook] 3|
|00000c30| 20 22 5c 0a 53 65 74 20 | 75 70 20 66 6f 72 20 69 | "\.Set |up for i|
|00000c40| 6e 74 65 72 61 63 74 69 | 6e 67 20 77 69 74 68 20 |nteracti|ng with |
|00000c50| 43 6f 6d 6d 6f 6e 20 4c | 49 53 50 2e 22 5d 29 0a |Common L|ISP."]).|
|00000c60| 28 66 73 65 74 20 27 63 | 6c 69 73 70 20 23 5b 28 |(fset 'c|lisp #[(|
|00000c70| 26 6f 70 74 69 6f 6e 61 | 6c 20 62 75 66 66 65 72 |&optiona|l buffer|
|00000c80| 20 70 72 6f 67 72 61 6d | 29 20 22 c0 09 ae 81 c2 | program|) ".....|
|00000c90| 0b c4 23 88 0d 89 16 06 | 87 22 20 5b 69 6c 69 73 |..#.....|." [ilis|
|00000ca0| 70 2d 73 74 61 72 74 2d | 64 69 61 6c 65 63 74 20 |p-start-|dialect |
|00000cb0| 62 75 66 66 65 72 20 22 | 63 6c 69 73 70 22 20 70 |buffer "|clisp" p|
|00000cc0| 72 6f 67 72 61 6d 20 73 | 65 74 75 70 2d 63 6c 69 |rogram s|etup-cli|
|00000cd0| 73 70 20 69 6c 69 73 70 | 2d 70 72 6f 67 72 61 6d |sp ilisp|-program|
|00000ce0| 20 63 6c 69 73 70 2d 70 | 72 6f 67 72 61 6d 5d 20 | clisp-p|rogram] |
|00000cf0| 34 20 22 5c 0a 43 72 65 | 61 74 65 20 61 6e 20 69 |4 "\.Cre|ate an i|
|00000d00| 6e 66 65 72 69 6f 72 20 | 43 6f 6d 6d 6f 6e 20 4c |nferior |Common L|
|00000d10| 49 53 50 2e 20 20 57 69 | 74 68 20 70 72 65 66 69 |ISP.  Wi|th prefi|
|00000d20| 78 2c 20 70 72 6f 6d 70 | 74 20 66 6f 72 20 62 75 |x, promp|t for bu|
|00000d30| 66 66 65 72 20 61 6e 64 | 20 70 72 6f 67 72 61 6d |ffer and| program|
|00000d40| 2e 22 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |." (byte|-code ".|
|00000d50| 89 44 87 22 20 5b 6e 69 | 6c 5d 20 32 29 5d 29 0a |.D." [ni|l] 2)]).|
|00000d60| 28 6c 69 73 70 2d 61 64 | 64 2d 64 69 61 6c 65 63 |(lisp-ad|d-dialec|
|00000d70| 74 20 22 63 6c 69 73 70 | 22 29 0a                |t "clisp|").     |
+--------+-------------------------+-------------------------+--------+--------+